home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Guided Tour Mac II / B2 / B2.rsrc / TEXT_1150.txt < prev    next >
Text File  |  1988-03-04  |  372b  |  13 lines
  1. j#macro to detect icon drag
  2. SET &H = MOUSEH
  3. SET &V = MOUSEV
  4. IF NOT STILLDOWN THEN EXIT
  5. IF ABS(mouseH-&H) > 3 THEN SKIP 3
  6. IF ABS(MOUSEV-&V) > 3 THEN SKIP 2
  7. SKIP -3
  8. IF CLICKON = 2 THEN SET SPRITEID[5] = 332
  9. IF CLICKON = 3 THEN SET SPRITEID[5] = 341
  10. IF CLICKON = 4 THEN SET SPRITEID[5] = 333
  11. SET SPRITEH[5] = MOUSEH
  12. SET SPRITEV[5] = MOUSEV
  13. WHEN MOUSEUP THEN CALL B88Àá‚ÅÑ